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SBEGIN RMSOMISC,000,RMSRMS ,<SFREE,SRELEASE , SFLUSH> 


° 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
CIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


7* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
3* ONLY IN ACCORDANCE WiTH THE TERMS OF SUCH LICENSE AND WITH THE 
:* IN N OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
7* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Abstract: 


This module provides the high level control for the 
SFREE, SRELEASE, and SFLUSH RMS services. 


Environment: 
Star processor running Starlet exec. 


; Modified By: 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
++ 
Facility: RMS32 
v03-013 RASO310 Ron Schaefer 14-Jun-1984 
Fix a broken branch. 


v03-012 0GB0013 Donald G. Blair 01-Mar-1984 
Make changes related to ACP calls as part of the 
restructuring necessary to implement access mode 


| 
protected files. | 
| 


v03-011 JwT0159 Jim Teague 28-Feb-1983 
Add an alternate entry point to RMSFLUSH. If the 
caller desires to invalidate the cache, then the 
entry point should be RMSFLUSH_ALT. Otherwise, 
buffers are not invalidated. 


v03-010 RASO206 Ron Schaefer 26-0¢ t-1983 
Change S$FLUSH to invalidate all buffers. This is a 
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} 
| 
temporary measure to make RU cancel/rollback work properly | 
| 


0 H 
$ 8 5 until RU cancel can be modified to have a private version 
$ : of SFLUSH. 
5 86 : v03-009 $HZ0007 Stephen H. Zalewski, 25-Mar-1933 
0 65 ; Do not attempt to write the header attributes of a file to 
000 ¢: ; disk if the file is not write accessed. 
00 66 ; v03-008 $HZ0006 Stephen H. Zalewski, | 21-Jan-1983 
4 of ; Fixed undefined symbol FHCLEN. 
0900 4 : v03-007 $HZ0005 Stephen H. Zalewski, 17-Jan-1983 
0 0 ; Check ifb$v_rw_attr bit in ifb to see if $FLUSH should 
0000 71 ; write the file header out to disk. This is only helpful - | 
0000 i 3 for sequential files where the FFB field in the file header 
4 iS 3 changed, but the hbk and ebk fields did not. 
0000 75 : V03-006 $HZ0004 Stephen H. Zalewski, 17-Jan-1983 15:58 
0000 76 ; Modified SFLUSH so that a file header is only written if 
0000 3 the hbk or ebk of the file has changed. This prevents 
444 4 3 unnecessary writes of the file header to disk. 
0000 «80: V03-005 $HZ0003 Stephan H. Zalewski 11-Dec-1983 
0000 81 3 Fix bug that caused ORGCASE to be picked up from IRB 
B00 Hf 3 instead of IFB when doing a SFLUSH. 
0000 «84: V03-004 $HZ0002 Stephen H. Zalewski, | 5-Dec-1982 
0000 85 ; Change entry point RMSWRITE_ATTR:: to WRITE_ATTR:. Allow 
0000 86 ; flush to write out the header for any file Tused to only 
464 Hi 3 flush nonshared sequential files). | 
0000 «89: v03-003 $HZ0001 Stephen H. Zalewski, | 16-Dec-1982 5:07 
464 si 5 Remove assume statements for locations of hbk and ebk in ifb. 
0000 32 F v03-002 KBT0185 Keith B. Thompson 23-Aug-1982 
9464 87 3 Reorganize psects 
0000 95 : v03-001 KBT0103 Keith 8B. Thompson 13-Jul-1982 | 
0000 96 ; Clean up psects 
0000 97 ; 
0000 98 ;-- 
0000 99; 
0000 100 | 
| 


; file header characteristics length 


; mask for resetting irab status 


; bit offset to flags 
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Functional Description: 
This module provides the high level control routines 
for the miscellaneous rab functions $free, $release, and 
$flush. see individual descriptions. 

Calling Sequence: 


Entered as a result of 
SYSSRELEASE, SYSSFLUSH. 


Input Parameters: 


user's calling SYSSFREE, 


AP user's argument List 
Implicit Inputs: 

The contents of the rab. 
Output Parameters: 


COOQOQCOCQCoQOQOQOQOoCooOooQoooooooo°oo rr: 

COOOCooCoooooooooooooooooooo re 
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RO status code 
R1 destroyed 


Implicit Outputs: 
The sts and stv fields of the rab are output by all of 
these services. See individual service descriptions 
for additional rab outputs. 

Completion Codes: 
Standard rms 

Side Effects: 


none 
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1 
G 1 g 3++ 
184 ; 
: ! 5 ; Entry point for $free. 
BOS : ; ; Call RMSUNLOCKALL to release locks on all records. 
44 189 ;-- 
000 190 
448 191 SENTRY RMSSFREE 
00 135 STSTPT FREE 
+4 19 SRABSET ; set up stream 
33 6A =6O3E 3 A 194 BBS #IFBSV_DAP,(R10),NTFREE ; branch if network operation 
FFEF® 30 QO0E 195 BSBW RMSUNLOCKALL : free all locked records 
2B «611 «0011+ = =«196 BRB EXIT 3; all set 
001 197 
001 198 ;++ 
001 199 ; 
44 soy ; Entry point for $release. 
aE sos ; Call RMSUNLOCK to release lock on record specified by 
oot $0 3; the rfa field of the rab. 
001 04; 
0013 205 ;-- 
0013 206 
0013 $0 SENTRY RMSSRELEASE 
0013 08 STSTPT RELEASEO 
0019 209 SRABSET ; set up stream : 
25 6A 3&€ €0 001D 210 BBS #IFBSV_DAP,(R10),NTREL ; branch if network operation 
51 10 A8 D0 0021 = 211 MOVL RABSW_RFAC(R8) ,R1 ; get rfa 
52 14 AB 38C_—s«(0025 312 MOVZWL RABSW-RFA+4(R&) ,R2 : and zero extend last word 
FFD4’ 30 0029 21 BSBW RMSUNCOCK : release lock on record 
10 11 O02C 214 BRB 
QOO2E 215 
002E 216 ;++ 
QOO2E 217; 
00O2E 218 ; Entry point for SFLUSH. 
O0O2E 219; ‘ 
002E 5s : Call internal flush routine. 
O0O2E 221; 
002E $56 3° 
833 22 
002E 224 SENTRY RMSSFLUSH 
54; $2 STSTPT FLUSH 
0034 6 SRABSET ; set up stream ; 
OF 6A 3& €0 0038 27 BBS #IFBSV_DAP,(R10),NTFLUSH; branch if network operation 
17. 10 003C 3 8 BSBB RMSFLUSH 3; do flush 
FFBF* 31 Fe 3 EXIT: BRW RMSEXRMS 
$0e1 31 ;++ 
0041 3 : ; 
0041 : Perform network functions. 
8 4; 
041 5 3-- 
041 § 
041 NTFREE: ; i 
FFBC’ 30 0041 38 BSBW NISFREE : perform function via 
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FB 11 0044 39 BRB EXIT 3 remote fal | 
$28 ty NTREL: 
FFB7" 30 O46 rk: " BSBW NTSRELEASE :; perform function via 
11 4 4 BRB EXIT 3; remote fal 
boce 52 NTFLUSH: 
FFB2"' 30 0048 46 “BSBW NT$FLUSH : perform function via 
ce VW 443 sth BRB EXIT ; remote fal 
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-SBTTL RMSFLUSH = COMPLETE ACTIVITY ON STREAM 


++ 

RMSFLUSH == Complete Activity on Stream. 
This routine performs the following steps to guarantee 
that all modified i/o buffers are written back to the 
file and the files attributes are written beck to the 
file header. 

If sequential file org, call RMS$WTLST1. 

Get the bdb List head. 

Get next bdb, if no more call RMSWRITE_ATTR, clear the 

FIND_LAST, PUTS_LAST, and BIO_LAST IRAB bookkeeping 

bits and exit. 


If bdb not dirty, go to 3. 


wna 
Se. * 2 


; P 
; 5. Call cache to get exclusive access (lock) to the buffer. 
; 6. Release the buffer with write through. 

: 7. Go to step 2. 

: _- RMSFLUSH_ALT does basically the same except it invalidates all 
; buffers as it steps through the BDBs. 

: Calling Sequence: 

; BSBW - RMSFLUSH or RMSFLUSH_ALT 

: Input Parameters: 

: R11 impure area address 

3 R10 ifab address 

: R9 irab address 

§ R8 rab address 

: Implicit Inputs: 

: The contents of the ifab, irab, and rab. 

: Output Parameters: 


RO status code 
R1-R7,AP destroyed 


Implicit Outputs: 
none. 
; Side Effects: 
For the sequential file organization, guarantees that any 
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; write behinds have terminated. 

9; For the other organizations, $flush has a possibility of 

0; never terminating if other streams continually leave 

13 around dirty buffers. If this is a problem for a given 

§ ; application, some other mechanism is required in addition 
; to flush to guarantee a quiet point. Note that these 

: : problems only occur with the deferred write option. 
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V04 RMSFLUSH = COMPLETE ACTIVITY ON STREAM mie) 7 iBT RMS.SRCIRMSOMISC.MAR;1 ° (8) VO4 
RMSFLUSH_ALT:: 
56 4 dO MOVL #1,R6 ; Set flag to invalidate buffers 
By Te Bee FLUSH 3 ~=6 and proceed 
a3 RMSFLUSH:: 
D4 «6200 LRL R6 ; don't invalidate buffers 
04 a9 60 BF BA 97 FLUSH: BICB #LSTMSK,IRBSL_BKPBITS(R9); reset irab flags 
TH: ASSUME FABSC_SEQ EQ 0 
23 AA 95 05C¢ TSTB IFBS$B_ORGCASE (R10) 3 seq. file org? 
15 is Boa BNEQ SCAN_BDB_LIST ; branch if not. 
10 ge AA 05 E 061 BBS #1FBSV_BTO,1FB$B FAC(R105,10$; branch if block i/o 
C69 27 €4 0966 BBSC  $#IRBS$V~BIO.LAST,TR9),10$; or last op was block i/o 
OO6A ; (i.e., mixed block and record op) 
QOOOOOOO'EF 16 BOCA JSB RMSWILST1 ; write out partial buffer | 
6¢ A9 B4& 00 g CLRW IRB$W_CSIZ(R9) 3 say no current record 
4750 €9 0075 BLBC O,FLRIT 3 get out on error 
0076 
00 
00 
007 


9 
0 
1 
5 
5 
; 
8 
9 
0 
1 
5 
4 
5 
6 
? 
8 
9 
0 
1 
5 
4 
5 
6 
7 
8 
9 
0 
1 
5 
4 
5 
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S 
1 
3 
3 
3 
3 
; 
76 39 ; Scan bdb List for any dirty buffers and, if found, write them 
6 40 ; out. If any have a write in progress, wait for it to finish. 
0076 41 ; Cache is called to access the buffer so that all necessary 
0076 342 ; interlocking is done correctly there. 
0076 43; 
0076 4 
0076 45 SCAN_BDB_LIST: 
54 40 AA DE 0076 4 MOVAL IFBSL_BDB_FLNK(R10),R4 ; get bdb List head addr 
Born : ASSUME BDBSL_FLINK EQ 0 
54 64 DO OQO7A 50 NXTBDB: MOVL (R4) ,R4 3 get next bdb addr 
40 AA 64 D1 007D 5 CMPL (R4), IFBSL_BDB_FLNK(R10); is this the List head? 
38 «613 «(0081 «= 35 BEQL WRITE ATT * branch if yes 
26 OA AG O01 E1 ef ; CHKDRT: BBC #BDB$V_DRT,BDB$B_FLGS(R4),CLEAR_VAL; branch if buffer not dirty 
0088 ao 8 
0088 56 ; Buffer is dirty. Deferred write may be in use or another stream may 
0088 57 ; currently have the buffer accessed. At any rate, get exclusive access 
0088 58 ; to the buffer, then release with write-through. 
0088 59 ; 
0088 60 
t'+4 61 SCSHFLAGS LOCK 3 say we want lock 
51 1C AG 0 0 6¢ MOVL BDBSL_VBN(R4), R1 ; get vbn for this bdb 
52. 14 AG C QO8F 6 MOVZWL BDBSW NUMB(R4S, R2 ; get size of this buffer. 
FF6A" 30 0093 364 BSBW = RMSCACHE 3 access the bucket. 
1450 €9 0096 65 BLBC RO, ERRX ; and go write it. 
05 56 4€—9 0099 66 BLBC ° ; If no invalidate, don't do it 
53 6° DO 009C 67 MOVL #RLSSM_DEQ,R3 : flag to write and invalidate 
0 11 4 68 BRB 208 : 
53. 02 00 OOA1 9 15$: MOVL #RLSSM_WRT_THRU,R3 ; flag to cause write only 
00009000" EF 1 OA4 0 208: JSB RMSRELEASE 3 and write bucket out 
C9 50 3 OAA 71 BLBS RO,SCAN_BDB_LIST ; and branch if o.k. 
OAD i ERRX:  RSB 3; get out on error 
OAE 73 CLEAR_VAL: ; : 
C9 56 E—9 OOAE 74 BLBC R6,NXTBDB :; If no invalidate, get next BDB 
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B7 7 $$. 
B7 sg 3 $$R 
Bf 9 ; Clear nrp offset on magtape flush and avoid rewrite of file attributes. aon 
087 : $$R 
44 A9 B4 aid CLRNRP: CLRW IRBSW_NRP_OFF (R9) ; get start of next block 
Been $2 SUCXIT: RMSSUC 3; show success 
05 O00B8D 6 FLXIT: RSB 


FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FOP 
1FB 
IFB 
IFB 
IFB 
IFB 
IFB 
MOD 
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ie 89 ~-SBTTL WRITE_ATTR = REWRITE FILE ATTRIBUTES 
BF 0 ;+ 
oes 4 ; WRITE_ATTR == Rewrite File Attributes. 
OBE 3g : : This subroutine examines the current hbk and ebk marks for the file, 
BOSE ae ; and if either of them has changed, rewrites the file attributes. 
BOBE 39 ; Acp write through is forced by setting FIBSV_WRITETHRU. 
OQOBE 98 ; Inputs: 
BeBe 99 ; 
OBE 400; R11 impure arte address 
QOOBE 401; R10 ifab addre 
OQOBE 108 3 RO ifab or iran address 
OOBE 403 ; 
OBE 404 ; Outputs 
OBE 405; 
QOBE 406; RO status code 
OOBE 407 ; R1-R6,AP destroyed 
OOBE 408 ;-- 
OOBE 409 
OOBE 410 WRITE_ATTR: 
F5 6A O05 €0 OOBE 411 BBS #DEVSV_SQD, IFBSL_PRIM_DEV(R10),CLRNRP; branch if magtape 
F1 6A O03 +€1 OOC2 412 BBC #DEVSV_DIR, IFBSL_PRIM_DEV(R10), CLRN RP: or if non-directory device 
FO 6A 30 €1 OOC6 413 BBC #IFBSV_WRTACC, (RTO) ,SOCXIT : Exit with success if no write acce 
16 6A 34 E& OOCA 414 BBSC #1FBSV RW_ATTR, (R10) 5$ : Write header if this bit set. 
50 S8AA 10 9 OOce 415 ROTL #16, 1FBSL~EBK_DISK(R10),RO ; Get old ebk mark 
74 AA 50 01 0003 416 CMPL RO, IFBSL_EBK(R10) ; Has it changed? 
0B 12 O0OD7 417 BNEQ 5$ : Yes, write the header 
50 54 AA 10 9C 00D9 418 ROTL #16, 1FBS$L_HBK_DISK(R10),RO : Get old hbk mark 
70 AA 50 D1 OODE 419 CMPL RO, IFBSL_ABK (R10) ; Has this changed? 
D6403=6©13) «~O0E2§= = 420 BEQL SUCKIT 3; No, then exit with success 
QO0E4 421 
O0E4 $56 : 
00E4 423 ; Build attribute List to rewrite record attributes. 
QO0E4 424 ; Allocate space for the record attributes and move them there from 
O0ES4 425 ; the ifab, converting them to their on disk format. 
OQOE4 $58 ; 
00E4 427 
52 56 8F QA OQOES 428 5S: MOVZBL #FHCLEN+FIBSC_LENGTH,R2 ; size of rec. attr. + fib 
FFIS* 30 QOE8 429 BSBW RMSGETSPC1 : get the space 
64 50 £9 OQOEB 430 BLBC RO, DONE 3 get out on error 
7E D4 it 3 $3) CLRL -(§P) : end of attribute list 
51 DD OOF 4 ¢ PUSHL R11 push addr of allocated space 
00040016 8F ODD Boe g $32 PUSHL #<ATRSC _RECATTRA16>+FHCLENS and set attr. code and Length 
OOF8 435 ASSUME IFBSB_RAT EQ IFBSB_RFMORG+1 
OOF8 436 ASSUME IFBSW"LRL EQ IFBSB_ pe nanees 
OOF ris ASSUME <IFBSC_SEQ + 1> EQ -IFBSC_REL 
61 50 AA 00 OOF 439 MOVL IFBSB_RFMORG(R10),(R1) ; copy rfm, rat, irl 
50 23 AA 90 oF 440 MOVE IFBSB-ORGCASE(R105, RO : move orgcase into RO 
02 6A 38 €1 0100 441 BBC #IFBSO_SEQFIL,(R105,10$ : if this is really a a sequential 
50 97 0104 rr DECB R : file then turn it back into one. 
61 04 04 50 FO 8190 4435 108: INSV RO ,#IFBSV_ORG,#IFBSS_ORG,(R1); insert ore 
B81 05 0108 444 TSTL = (RI) + : move to next field 
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ita fi ORITECATIR ~ REWRITE FILE ATTRIBUTES eet 1 9h:38:)8 LRMS SRCIAMS MISC.MAR;1 . (11) | 
10D 445 
10D 44g ASSUME IFBSL_HBK_DISK EQ IFBS$B_RFMORG+4 
; 4 re ASSUME IFBSL_EBK_DISK EQ IFBSB_RFMORG+8 
54 AA 70 AA 10 4 1 rr ROTL #16, 1FBSL_HBK(R10) ,IFBSL_HBK_DISK(R10) ; switch words of hbk 
54 AA 00 01 450 MOVL  IFB$L_HBK“DISK(R105,(R1)? ; copy disk structured hbk 
SB AA 74 AA 10 9C 0117 451 ROTL #16, IFBSL“EBK(R10) ,[FBSL_EBK_DISK(R10) |; switch words of ebk 
81 SB AA 00 14 43¢ MOVL  IFBSL_EBK-DISK(R105,(R1)? : copy disk-structured ebk 
121 454 ASSUME <IFBSW_GBC-IFBSW_FFB> EQ 8 
121 455 ASSUME IFBSW_FFB EQ IFBSL_EBK_DISK+4 
$i ! +28 ASSUME IFBSC"FHAEND EQ <IFB$w_GBC+2> 
+ 5C AA 7D O12] 458 MOVQ 4 + wk SSP ED 3; copy record attributes to GBC 
1 64 B0 4 3 inh MOVW IFBSW_GBC(R10), (R1)+ 3; copy GBC 
4 4 ret ASSUME FIBSL_ACCTL EQ 0 
0129 rhe: SSB #F IBSV_WRITETHRU, (R1) ; force write thru 
51 DD 0120 464 PUSHL 3; push addr of fib 
7E 40 8F 9A 4 F 465 MOVZBL #FIBSC_LENGTH,-(SP) ; and Length of fib 
50 36 9A 0133 466 MOVZBL #10$_MODIFY,RO : specify modify i/o function 
00 oD Bis8 467 PUSHL # ; p6 = 0 for qio 
3 F 4 8 468 PUSHAL 12(SP) ; pS = address of attribute list 
FEC2" 30 0138 469 BSBW = - RMSFCPFNC_P4 ; call acp to write attributes | 
a. .& 0 pit oo9 ADDL2 #12,SP ; clean fib descriptor off stack 
0141 rh 3 
0141 473; And rest of stack clean. 
0141 474 ; 
0141 475 | 
4 8€ 7D 0141 476 MOVQ (SP)+,R4 ; addr of space to deallocate 
52 56 8F 9A 0144 477 MOVZBL #FHCLEN+FIBSC_LENGTH,R2 ; length of space to deallocate 
50 gp 0148 478 PUSHL RO 3 save status from write attr | 
FEBS" 30 bbs 479 BSB RMSRETSPC1 ; deallocate the space 
01 BA 0140 480 POP #*M<RO> ; restore status code | 
0150 €9 O16F 481 BLBC RO,RWERR 3; branch on error 
05 015g 482 DONE: SB | 
B12 48 
153 484; 
015 485 ; Map error code from qio to rms code. | 
015 486 ; 
015 487 
ge $38 RWERR: 
15 489 RMSERR WER,R1 ; default error code 
FEAS' %1 3128 re BRW RMSMAPERR 3 map the error code | 
gi38 492 END | 
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PSECT name Allocation PSECT No. Attributes 
- ABS . 9444 44 64 9.) 0 ¢ 9. ) NOPIC  USR CON ABS LCL an 8 NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS 0000158 ( 347.) 1 ¢ . PIC USR CON REL GBL NOSHR’ EXE RD NOWRT NOVEC BYTE 
SABSS 0000000 ( 0.) 2 ¢ 5: ) NOPIC USR CON ABS LCL NOSHR’ EXE RD WRT NOVEC BYTE 
dccenrenensesnesennen} 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 38 8:00: 90.06 0:00: 0.63 
a processing 1 : 0:00: 2-9 0:00:05. g 
41 te 30 0:00:37.4 
Syabol table sort 0:00:02.41 ST a 4 
s2 10 0:00:02.84 9 3828 24 
Syabot table output 1 0:00:00.15 0:00: 0:88 
Psect synopsis output 00:00:00.02 00:00:00.0 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 67 00:00:21.60 00:00:53.36 


The working set Limit was 1500 pages. 

86410 bytes (169 pages) of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table space allocated to hold 1714 non-local and 6 local symbols. 
492 source Lines were read in Pass 1, producing 14 object records in Pass 2 

30 pages of virtual memory were used to define 29 macros. 
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Macro Library name 


5SSDUA 4 OBJIRMAS. “at 1 17 

$255$DUA SYS.OBJJLIB.MLB;1 0 
- 5SSDUA SESYSL IBISTARLET. MLB; 2 4 
TOTALS (all Libraries) 2 


1852 GETS were required to define 25 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMSOMISC/OBJ=OBJ$:RMSOMISC MSRC$:RMSOMISC/UPDATE=(ENHS:RMSOMISC) +EXECML$/LIB+LIB$:RMS/LIB 
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